home *** CD-ROM | disk | FTP | other *** search
/ SunSoft Catalyst CDWARE 1996 May to August / Catalyst CDWARE 1996 May to August.iso / .products / .bin / httpd / Solaris_2 / test < prev    next >
Text File  |  1996-02-22  |  309b  |  20 lines
  1. #!./perl
  2.  
  3.  
  4.  
  5.  
  6. while (@ARGV) {
  7. $ARGV=shift;
  8. $orig = $ARGV;
  9. $name = $orig;
  10. $name =~ s/=.*//g;
  11. $param = $orig;
  12. $param =~ s/.*=//g;
  13. #place custome params here
  14. if ($name eq "size") {$size = $param;}
  15. if ($name eq "dest") {$dest = $param;}
  16. if ($name eq "alpha") {$alpha = $param;}
  17. }
  18. print "$size, $dest, $alpha\n";
  19.  
  20.